(display "\n========================================\n")
(define (reverse items)
    (define (iter things answer)
        (if (null? things)
            answer
            (iter (cdr things) (cons (car things) answer))))
    (iter items ()))

(define (deep-reverse items)
    (cond ((null? items) ())
          ((not (pair? items)) items)
          (else
            (reverse (list (deep-reverse (car items))
                           (deep-reverse (cadr items)))))))

(define (deep-reverse items)
(reverse (map (lambda (x)
(if (pair? x)
(deep-reverse x)
x))
items)))

(define (deep-reverse items)
    (reverse (map (lambda (x)
                          (if (pair? x)
                              (deep-reverse x)
                              x))
                  items)))

(define x (list (list 1 2) (list 3 4) (list 5 6)))
(display x)
(newline)
(display (reverse x))
(newline)
(display (deep-reverse x))
(display "\n========================================\n")
